inherited crdAccParentSet: TcrdAccParentSet
  Left = 707
  Top = 518
  VertScrollBar.Range = 0
  ActiveControl = dbeRegNum
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = #1047#1072#1076#1072#1090#1100' '#1088#1086#1076#1080#1090#1077#1083#1100#1089#1082#1091#1102' '#1090#1086#1095#1082#1091' '#1091#1095#1077#1090#1072
  ClientHeight = 170
  ClientWidth = 463
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 8
    Top = 14
    Width = 126
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1086#1085#1085#1099#1081' '#1085#1086#1084#1077#1088
  end
  object Label8: TLabel [1]
    Left = 8
    Top = 36
    Width = 31
    Height = 13
    Caption = #1040#1076#1088#1077#1089
  end
  object Label2: TLabel [2]
    Left = 8
    Top = 107
    Width = 126
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1044#1072#1090#1072' '#1087#1086#1076#1082#1083#1102#1095#1077#1085#1080#1103
  end
  object Label3: TLabel [3]
    Left = 8
    Top = 81
    Width = 126
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1059#1089#1083#1091#1075#1072
  end
  inherited Panel1: TPanel
    Top = 143
    Width = 463
    TabOrder = 1
    inherited BitBtn1: TBitBtn
      Left = 255
    end
    inherited BitBtn2: TBitBtn
      Left = 357
      Caption = #1054#1090#1084#1077#1085#1072
    end
  end
  inherited ToolBar1: TToolBar
    Width = 463
    Height = 0
    TabOrder = 2
  end
  object dbeParentAddress: TDBEditEh [6]
    Left = 8
    Top = 54
    Width = 446
    Height = 19
    AlwaysShowBorder = True
    Anchors = [akLeft, akTop, akRight]
    DataField = 'ADDRESS'
    DataSource = dsc_AccParent
    EditButtons = <>
    Enabled = False
    Flat = True
    TabOrder = 0
    Visible = True
  end
  object dbeRegNum: TDBNumberEditEh [7]
    Left = 140
    Top = 12
    Width = 314
    Height = 19
    AlwaysShowBorder = True
    DecimalPlaces = 0
    EditButtons = <>
    Flat = True
    MaxValue = 3999999999.000000000000000000
    MinValue = 1.000000000000000000
    TabOrder = 3
    Visible = True
    OnExit = dbeRegNumExit
  end
  object dbtBdate: TDBDateTimeEditEh [8]
    Left = 140
    Top = 104
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Flat = True
    Kind = dtkDateEh
    TabOrder = 4
    Visible = True
  end
  object DBEditEh1: TDBEditEh [9]
    Left = 140
    Top = 78
    Width = 314
    Height = 19
    AlwaysShowBorder = True
    Anchors = [akLeft, akTop, akRight]
    DataField = 'SRV_NAME'
    DataSource = dsc_AccParent
    EditButtons = <>
    Enabled = False
    Flat = True
    TabOrder = 5
    Visible = True
  end
  inherited ActionList1: TActionList
    Left = 122
    Top = 44
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      Caption = #1054#1090#1084#1077#1085#1072
      Hint = #1054#1090#1084#1077#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103' '#1080' '#1074#1099#1081#1090#1080
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Active = False
    StoredProps.Strings = ()
  end
  object ds_AccParent: TpFIBDataSet
    SelectSQL.Strings = (
      'select ma.id as raccpoint_id, v.address, v.srv_name'
      '  from m_accpoint ma'
      
        '  join (select first(1) distinct v.town||'#39', '#39'||v.street||'#39' '#1076'.'#39'||' +
        'v.house||coalesce('#39' '#1082'.'#39'||v.corps, '#39#39') as address,'
      '               sg.name as srv_name'
      
        '        from proc_accpoint_get_childs (:paccpoint_id, current_da' +
        'te, null, 1) p'
      '        left join dogovors d on d.accpoint_id = p.raccpoint_id'
      '        left join v_abons v on v.id = d.abonent_id'
      '        left join services s on s.id = d.service_id'
      '        left join services sg on sg.id = s.group_id'
      '        where p.rlevel > 0) v on ma.id = :paccpoint_id')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 176
    Top = 8
    object ds_AccParentADDRESS: TFIBStringField
      FieldName = 'ADDRESS'
      Size = 207
      EmptyStrToNull = True
    end
    object ds_AccParentRACCPOINT_ID: TFIBIntegerField
      FieldName = 'RACCPOINT_ID'
    end
    object ds_AccParentSRV_NAME: TFIBStringField
      FieldName = 'SRV_NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_AccParent: TDataSource
    DataSet = ds_AccParent
    Left = 208
    Top = 8
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 140
    Top = 8
  end
  object qSetParent: TpFIBQuery
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'SELECT'
      '    RACCPOINT_ID,'
      '    RMESSAGE'
      'FROM'
      '    PROC_TU2TU(:PARENT_ACCPOINT_ID,'
      '    :PACCPOINT_ID,'
      '    '#39','#39','
      '    :PDATE,'
      '    1) ')
    Left = 176
    Top = 40
    qoStartTransaction = True
  end
end
